home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / disk / moni / BlockEd.lha / BlockEd / BlockEd.qi < prev    next >
Encoding:
Text File  |  1993-12-22  |  1.9 KB  |  55 lines
  1. #include <ak/qual.h>
  2. #define DO_QUAL() qual_analyse(qual_arr,argv,&argc,usage,1)
  3. #define CLEANUP_QUAL()
  4. #define Q_QUIET 0
  5. #define Q_DATAPEN 1
  6. #define Q_SELECTPEN 2
  7. #define Q_BACKPEN 3
  8. #define Q_OTHERPEN 4
  9. #define Q_C0 5
  10. #define Q_C1 6
  11. #define Q_C2 7
  12. #define Q_C3 8
  13. #define Q_FNAME 9
  14. #define Q_FSIZE 10
  15. #define Q_NULLCHAR 11
  16. #define Q_HEX 12
  17. #define Q_LEFTJUST 13
  18. #define Q_BYTEMOVE 14
  19. #define Q_INHIBIT 15
  20. Static bool Quiet=false;
  21. Static long DataPen=1;
  22. Static long SelectPen=3;
  23. Static long BackPen=0;
  24. Static long OtherPen=2;
  25. Static ushort ColTbl0=0x046;
  26. Static ushort ColTbl1=0x000;
  27. Static ushort ColTbl2=0x009;
  28. Static ushort ColTbl3=0x0bb;
  29. Static char FontName[25+1]="topaz.font";
  30. Static uword FontSize=8;
  31. Static char NullChar='.';
  32. Static bool Hex=true;
  33. Static bool Left=false;
  34. Static bool ByteMove=false;
  35. Static bool Inhibit=false;
  36. Static QUAL qual_arr[]={
  37. 1,"QUIET",typ_logical,(char *)&Quiet,0,0,NULL,0x0,0x0,0,0,0,
  38. 1,"DATAPEN",typ_long,(char *)&DataPen,0,3,NULL,0x0,0x0,0,0,0,
  39. 1,"SELECTPEN",typ_long,(char *)&SelectPen,0,3,NULL,0x0,0x0,0,0,0,
  40. 1,"BACKPEN",typ_long,(char *)&BackPen,0,3,NULL,0x0,0x0,0,0,0,
  41. 1,"OTHERPEN",typ_long,(char *)&OtherPen,0,3,NULL,0x0,0x0,0,0,0,
  42. 1,"C0",typ_ushort,(char *)&ColTbl0,0x000,0xfff,NULL,0x0,0x0,0,0,ATT_HEX,
  43. 2,"C1",typ_ushort,(char *)&ColTbl1,0x000,0xfff,NULL,0x0,0x0,0,0,ATT_HEX,
  44. 2,"C2",typ_ushort,(char *)&ColTbl2,0x000,0xfff,NULL,0x0,0x0,0,0,ATT_HEX,
  45. 2,"C3",typ_ushort,(char *)&ColTbl3,0x000,0xfff,NULL,0x0,0x0,0,0,ATT_HEX,
  46. 1,"FNAME",typ_string,FontName,1,25,NULL,0x0,0x0,0,0,0,
  47. 2,"FSIZE",typ_uword,(char *)&FontSize,1,19,NULL,0x0,0x0,0,0,0,
  48. 1,"NULLCHAR",typ_char,&NullChar,0,0,NULL,0x0,0x0,0,0,0,
  49. 1,"HEX",typ_logical,(char *)&Hex,0,0,NULL,0x0,0x0,0,0,0,
  50. 1,"LEFTJUST",typ_logical,(char *)&Left,0,0,NULL,0x0,0x0,0,0,0,
  51. 2,"BYTEMOVE",typ_logical,(char *)&ByteMove,0,0,NULL,0x0,0x0,0,0,0,
  52. 1,"INHIBIT",typ_logical,(char *)&Inhibit,0,0,NULL,0x0,0x0,0,0,0,
  53. 0,NULL};
  54. Static char usage[]="Device";
  55.